Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Bombardier_PC/BSCRIPTS.CST/00109_Script_returnToQTVR

Text File | 1999-04-25 | 2KB | 62 lines

-- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
-- Developed for Bombardier, Inc.
--
-- All programming developed by:
-- Robert Fabricant, Valerie Valoueva, Ossi Shaked,
-- Henry Sauvageot, Chris Howell & Chris Girand
--
-- Use of this code by parties other than @radical.media, inc. or their
--agents
-- without the express written consent of @radical.media, inc. AND Concurrent
-- New Media Group, L.L.C. is strictly prohibited.
------------------------------------------------------

--Each "return to aircraft" button consists of two elements: #bmp "Picture" and #richText "Field". Both elements are linked and should be percieved by user as a whole: one element's rollover triggers the other element's rollover. This script is a "Picture"'s behavior .

property mySprite, NeutralName, HiliteName

global comeFromQTVR, retFrame, gRtrnPln


on new me
  -- Button is only visible if this detail was navigated from a QTVR interior or exterior sections
  if comeFromQTVR then
    set mySprite = the spriteNum of me
    set neutralName = "r"
    set HiliteName = "r-hil"
    set the stretch of sprite mySprite = FALSE
    set the member of sprite mySprite = member neutralName
  end if
end


on mouseEnter me

  if comeFromQTVR then
    set the member of sprite mySprite = member  HiliteName
  end if

end

on mouseLeave me
  if comeFromQTVR then
    set the member of sprite mySprite = member  NeutralName
  end if

end

on mouseUp me
  if comeFromQTVR then
    if gRtrnPln = "EXT" then --if came from QTVR exterior
      go to retFrame
    else
      go to frame "qtvr"--if came from QTVR interior
    end if
    puppetsound 3, "mouse5"
  end if
  cursor -1
end